home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Graphics / ImageFX / ImageFX40_GIF / Install < prev    next >
Encoding:
Text File  |  1999-07-12  |  3.2 KB  |  139 lines
  1. ; ImageFX GIF Modules Install Script
  2. ;
  3. ; Written by Thomas Krehbiel
  4. ;
  5. ; Copyright © 1995,1999 Nova Design, Inc.
  6. ; All Rights Reserved
  7.  
  8. (
  9.  
  10.    ;================================================================
  11.    ; Setup
  12.    ;================================================================
  13.  
  14.    ; script variables...
  15.  
  16.    (set versionname "4.0")            ; version number
  17.    (set programname ("ImageFX %s" versionname)) ; name of program
  18.    (set diskname1 "ImageFX_Disk1:")        ; install disk name
  19.    (set diskname2 "ImageFX_Disk2:")        ; second install disk name
  20.    (set diskname3 "ImageFX_Disk3:")        ; third install disk name
  21.    (set diskname4 "ImageFX_Disk4:")        ; fourth install disk name
  22.    (set pdiskname1 "")                ; patch install disk name
  23.  
  24.    (set tempdir "T:")
  25.  
  26.    ; system information...
  27.  
  28.    (set osver (/ (getversion) 65536))         ; os version
  29.    (set cputype (database "cpu"))         ; cpu type
  30.  
  31.    ;-------------------
  32.    ; Pick a default directory for the installation...
  33.    (set initialdir @default-dest)         ; defaults to biggest drive
  34.    (if (getassign "ImageFX4")
  35.       (
  36.      (set initialdir (getassign "ImageFX4"))
  37.      (set assignname "ImageFX4")
  38.       )
  39.       ; else
  40.       (
  41.      (if (getassign "ImageFX3")
  42.         (
  43.            (set initialdir (getassign "ImageFX3"))
  44.            (set assignname "ImageFX3")
  45.         )
  46.         ; else
  47.         (
  48.            (if (getassign "ImageFX2")
  49.           (
  50.              (set initialdir (getassign "ImageFX2"))
  51.              (set assignname "ImageFX2")
  52.           )
  53.           ; else
  54.           (
  55.              (if (getassign "ImageFX")
  56.             (
  57.                (set initialdir (getassign "ImageFX"))
  58.                (set assignname "ImageFX")
  59.             )
  60.              )
  61.           )
  62.            )
  63.         )
  64.      )
  65.       )
  66.    )
  67.  
  68.    (set tryagain 1)
  69.    (while tryagain
  70.       (
  71.  
  72.      (set tryagain 0)
  73.  
  74.      ;-------------------
  75.      ; Ask where to install it...
  76.      ;(set wheredir initialdir)
  77.      (set wheredir
  78.         (askdir
  79.            (prompt "Select the directory where ImageFX is currently installed.  The GIF loader "
  80.                "and saver modules will be installed into this directory.")
  81.            (help @askdir-help)
  82.            (default initialdir)
  83.         )
  84.      )
  85.  
  86.      ;-------------------
  87.      ; Make sure it's a valid ImageFX
  88.      (set checkvar 0)
  89.      (set checkvar (+ checkvar (exists (tackon wheredir "Modules/Loaders/ILBM"))))
  90.      (set checkvar (+ checkvar (exists (tackon wheredir "ImageFX"))))
  91.      (set checkvar (+ checkvar (exists (tackon wheredir "Modules/Savers/ILBM"))))
  92.      (if (<> 3 checkvar)
  93.         (
  94.            (message "`" wheredir "' does not appear to contain a copy of ImageFX.")
  95.            (set tryagain 1)
  96.            (set initialdir wheredir)
  97.         )
  98.      )
  99.  
  100.       )
  101.    )
  102.  
  103.    (message "The GIF modules will be installed in the drawer `" wheredir "'.  If this is correct, click `Proceed'.")
  104.  
  105.    (set @default-dest wheredir)
  106.  
  107.    ;================================================================
  108.    ; INSTALL NEW FILES
  109.    ;================================================================
  110.  
  111.    (working "Installing GIF modules...")
  112.  
  113.    (copyfiles
  114.       (prompt "")
  115.       (help "")
  116.       (source "Modules/Loaders")
  117.       (dest (tackon wheredir "Modules/Loaders"))
  118.       (choices
  119.      "GIF"
  120.       )
  121.    )
  122.  
  123.    (copyfiles
  124.       (prompt "")
  125.       (help "")
  126.       (source "Modules/Savers")
  127.       (dest (tackon wheredir "Modules/Savers"))
  128.       (choices
  129.      "GIF"
  130.       )
  131.    )
  132.  
  133.    ; Installation complete!
  134. )
  135.  
  136. ; Revision History:
  137. ;
  138. ;  10.10.95 tek   Created.
  139.